home *** CD-ROM | disk | FTP | other *** search
/ Informática Multimedia 1995 April / Informatica Multimedia CD - Epimundo.iso / DOS / CAT_DISK / VDBRWS.ZIP / BRWSH.EX < prev    next >
Encoding:
Text File  |  1994-03-13  |  12.1 KB  |  1,047 lines
  1.  
  2. ùwarning
  3. ûtrace
  4. îB=1,
  5. C=2,
  6. D=3,
  7. E=4,
  8. F=5,
  9. G=6,
  10. H=7,
  11. I=8,
  12. J=9,
  13. K=10,
  14. L=11,
  15. M=12,
  16. N=13,
  17. O=18,
  18. P=21
  19. ïQ(¡R)
  20. ç(R>=-3ÄR<=19)Å(R>=256ÄR<=261)
  21. éï
  22. ïR(¡S)
  23. çS>=0ÄS<=255
  24. éï
  25. ïS(¡T)
  26. çT=0ÅT=1
  27. éï
  28. ïT(¡U)
  29. çU>=1
  30. éï
  31. ïU(«V)
  32. ç½(V)=2
  33. éï
  34. ïV(«W)
  35. ç½(W)>=2
  36. éï
  37. ÆäW(R X,V Y)
  38. ╨(C,{X,0,Y})
  39. éä
  40. ÆäX(R Y,
  41. S Z,
  42. V a)
  43. ╨(L,{Y,Z,a})
  44. éä
  45. ÆäY(R Z,S a,U b,U c)
  46. ╨(O,{Z,a,b,c})
  47. éä
  48. ÆäZ(R a,U b)
  49. ╨(E,{a,b})
  50. éä
  51. Ææc(U a)
  52. ç╧(P,a)
  53. éæ
  54. Ææb(Q a)
  55. ç╧(F,a)
  56. éæ
  57. Æîa=1,
  58. d=2,
  59. e=3,
  60. f=4,
  61. g=5,
  62. h=6,
  63. i=7
  64. Ææj()
  65. ç╧(N,0)
  66. éæ
  67. Æîk=8192,
  68. l=1543,
  69. m=7,
  70. n=1031
  71. Æäo(¡p)
  72. ╨(G,p)
  73. éä
  74. Ææp(T q)
  75. ç╧(M,q)
  76. éæ
  77. Æäq(S r)
  78. ╨(H,r)
  79. éä
  80. Æär(¡s)
  81. ╨(I,s)
  82. éä
  83. Æäs(R t)
  84. ╨(J,t)
  85. éä
  86. Æät(R u)
  87. ╨(K,u)
  88. éä
  89. ïu(«v)
  90. ç½(v)=3 
  91. éï
  92. Ææv(R w,u x)
  93. ç╧(D,{w,x})
  94. éæ
  95. ïw(¡x)
  96. çx>=0
  97. éï
  98. Æäx(w y)
  99. ╨(B,y)
  100. éä
  101. Æîy=0,
  102. z=-1,
  103. BA=1
  104. îBB=-2
  105. îBC=1
  106. ïBD(¡BE)
  107. çBE>=0
  108. éï
  109. ïBE(¡BF)
  110. çBF>=BBÄBF<=255
  111. éï
  112. BD BF
  113. BE BG
  114. BG=BB
  115. æBH()
  116. BE BI
  117. üBG=BBâ
  118. ç╖(BF)
  119. à
  120. BI=BG
  121. BG=BB
  122. çBI
  123. éü
  124. éæ
  125. äBI(BE BJ)
  126. BG=BJ
  127. éä
  128. äBJ()
  129. BE BK
  130. èBCê
  131. BK=BH()
  132. üö╛(BK,{
  133. 32,9,10})â
  134. É
  135. éü
  136. éè
  137. BI(BK)
  138. éä
  139. îBK={
  140. 110,116,39,34,92,114},
  141. BL={
  142. 10,9,39,34,92,13}
  143. æBM(BE BN)
  144. BD BO
  145. BO=╛(BN,BK)
  146. üBO=0â
  147. çBA
  148. à
  149. çBL[BO]
  150. éü
  151. éæ
  152. æBN()
  153. BE BO
  154. BO=BH()
  155. üBO=92â
  156. BO=BM(BH())
  157. üBO=BAâ
  158. ç{BA,0}
  159. éü
  160. éü
  161. üBH()!=39â
  162. ç{BA,0}
  163. à
  164. ç{y,BO}
  165. éü
  166. éæ
  167. æBO()
  168. «BP
  169. BE BQ
  170. BP={}
  171. èBCê
  172. BQ=BH()
  173. üBQ=zÅBQ=10â
  174. ç{BA,0}
  175. éü
  176. üBQ=34â
  177. É
  178. ëBQ=92â
  179. BQ=BM(BH())
  180. üBQ=BAâ
  181. ç{BA,0}
  182. éü
  183. éü
  184. BP=BP&BQ
  185. éè
  186. ç{y,BP}
  187. éæ
  188. ïBP(¡BQ)
  189. çBQ=-1ÅBQ=+1
  190. éï
  191. æBQ()
  192. BE BR
  193. BP BS,BT
  194. BD BU
  195. ¡BV
  196. ╝BW,BX,BY,BZ
  197. BS=+1
  198. BW=0
  199. BT=+1
  200. BY=0
  201. BU=0
  202. BR=BH()
  203. üBR=45â
  204. BS=-1
  205. ëBR !=43â
  206. BI(BR)
  207. éü
  208. BR=BH()
  209. üBR=35â
  210. èBCê
  211. BR=BH()
  212. BV=╛(BR,{
  213. 48,49,50,51,52,53,54,55,56,57,65,66,67,68,69,70})-1
  214. üBV>=0â
  215. BU=BU+1
  216. BW=BW*16+BV
  217. à
  218. BI(BR)
  219. üBU>0â
  220. ç{y,BS*BW}
  221. à
  222. ç{BA,0}
  223. éü
  224. éü
  225. éè
  226. éü
  227. è╛(BR,{
  228. 48,49,50,51,52,53,54,55,56,57})ê
  229. BU=BU+1
  230. BW=BW*10+(BR-48)
  231. BR=BH()
  232. éè
  233. üBR=46â
  234. BR=BH()
  235. BX=10
  236. è╛(BR,{
  237. 48,49,50,51,52,53,54,55,56,57})ê
  238. BU=BU+1
  239. BW=BW+(BR-48)/BX
  240. BX=BX*10
  241. BR=BH()
  242. éè
  243. éü
  244. üBU=0â
  245. ç{BA,0}
  246. éü
  247. üBR=101ÅBR=69â
  248. BR=BH()
  249. üBR=45â
  250. BT=-1
  251. ëBR !=43â
  252. BI(BR)
  253. éü
  254. BR=BH()
  255. ü╛(BR,{
  256. 48,49,50,51,52,53,54,55,56,57})â
  257. BY=BR-48
  258. BR=BH()
  259. è╛(BR,{
  260. 48,49,50,51,52,53,54,55,56,57})ê
  261. BY=BY*10+BR-48
  262. BR=BH()
  263. éè
  264. BI(BR)
  265. à
  266. ç{BA,0}
  267. éü
  268. à
  269. BI(BR)
  270. éü
  271. BZ=1
  272. üBT>=0â
  273. åBa=1ìBYê
  274. BZ=BZ*10
  275. éå
  276. à
  277. åBa=1ìBYê
  278. BZ=BZ*0.1
  279. éå
  280. éü
  281. ç{y,BS*BW*BZ}
  282. éæ
  283. æBR()
  284. BE BS
  285. «BT,BU
  286. BJ()
  287. BS=BH()
  288. ü╛(BS,{
  289. 45,43,46,48,49,50,51,52,53,54,55,56,57,35})â
  290. BI(BS)
  291. çBQ()
  292. ëBS=123â
  293. BT={}
  294. èBCê
  295. BJ()
  296. BS=BH()
  297. üBS=125â
  298. ç{y,BT}
  299. à
  300. BI(BS)
  301. éü
  302. BU=BR()
  303. üBU[1]!=yâ
  304. çBU
  305. éü
  306. BT=▒(BT,BU[2])
  307. BJ()
  308. BS=BH()
  309. üBS=125â
  310. ç{y,BT}
  311. ëBS !=44â
  312. ç{BA,0}
  313. éü
  314. éè
  315. ëBS=34â
  316. çBO()
  317. ëBS=39â
  318. çBN()
  319. ëBS=-1â
  320. ç{z,0}
  321. à
  322. ç{BA,0}
  323. éü
  324. éæ
  325. ÆæBV(BD BW)
  326. BF=BW
  327. çBR()
  328. éæ
  329. îBX=16,
  330. BY=17
  331. îBZ=╬(2,32)-1
  332. ïBa(╝BS)
  333. çBS>0ÄBS<=BZÄ╢(BS)=BS
  334. éï
  335. ÆæBT(¡BU)
  336. ç╧(BX,BU)
  337. éæ
  338. ÆäBW(Ba BS)
  339. ╨(BY,BS)
  340. éä
  341. ÆæBU(╝BS)
  342. «Bb
  343. Bb={0,0,0,0}
  344. Bb[1]=═(BS,#100)
  345. BS=╢(BS/#100)
  346. Bb[2]=═(BS,#100)
  347. BS=╢(BS/#100)
  348. Bb[3]=═(BS,#100)
  349. BS=╢(BS/#100)
  350. Bb[4]=═(BS,#100)
  351. çBb
  352. éæ
  353. ÆæBS(«Bb)
  354. çBb[1]+
  355. Bb[2]*#100+
  356. Bb[3]*#10000+
  357. Bb[4]*#1000000
  358. éæ
  359. æBb(¡Bc,¡Bd)
  360. «Be
  361. Be={}
  362. èBdê
  363. Be=▒(Be,╖(Bc))
  364. Bd=Bd-1
  365. éè
  366. çBe
  367. éæ
  368. æBc(¡Bd)
  369. «Be
  370. Be={╖(Bd)}
  371. ü(Be[1]=-1)âç{}éü
  372. Be=▒(Be,Bb(Bd,14))
  373. Be=▒(Be,Bb(Bd,3))
  374. Be=▒(Be,BS(Bb(Bd,4)))
  375. Be=▒(Be,BS(Bb(Bd,4)))
  376. åBf=1ì5ê
  377. Be=▒(Be,╖(Bd))
  378. éå
  379. çBe
  380. éæ
  381. îBd={-1,{92},{100},0,1981,1,1,0,0,0}
  382. ÆæBe(¡Bf)
  383. «Bg,Bh
  384. Bg={Bd}
  385. Bh=Bc(Bf)
  386. è½(Bh)ê
  387. Bg=▒(Bg,Bh)
  388. Bh=Bc(Bf)
  389. éè
  390. çBg
  391. éæ
  392. îBf=1,Bg=2,Bh=3 
  393. ¡Bi 
  394. Bi=0
  395. «Bj 
  396. Bj={}
  397. «Bk 
  398. Bk={}
  399. ÆæBl()
  400. ¡Bm
  401. üBi<1â
  402. ç{}
  403. ëBi>½(Bj)â
  404. ç{}
  405. à
  406. Bm=Bi
  407. Bi=Bm+1
  408. çBj[Bm]
  409. éü
  410. éæ
  411. ÆäBm()
  412. üBi>1â
  413. Bi=Bi-1
  414. éü
  415. éä
  416. ÆæBn(¡Bo)
  417. üBo<1ÅBo>½(Bj)â
  418. ┤(2,{
  419. 115,101,101,107,95,114,101,99,111,114,100,58,32,105,110,118,97,108,105,100,
  420. 32,114,101,99,111,114,100,32,110,117,109,98,101,114,32,37,100,10},{Bo})
  421. ç-1 
  422. éü
  423. Bi=Bo
  424. çBo
  425. éæ
  426. ÆæBo()
  427. çBi
  428. éæ
  429. äBp(¡Bq,«Br)
  430. «Bs
  431. «Bt
  432. ¡Bu
  433. Bu=Bo()
  434. Bt=Bl()
  435. è½(Bt)ê
  436. üBt[Bf]<Bqâ
  437. Bm()
  438. É
  439. ëBt[Bf]=Bqâ
  440. ü╛(100,Bt[Bh])â
  441. Br[3]=▒(Br[3],{Bt[Bg],Bu})
  442. Bs={Bt[Bg],Bu,{}}
  443. Bp(Bq+1,Bs)
  444. éü
  445. à
  446. ¼(2,{
  447. 73,110,118,97,108,105,100,32,102,105,108,101,32,115,116,114,117,99,116,117,
  448. 114,101,46,32,71,105,118,105,110,103,32,117,112,46})
  449. ╤(1)
  450. éü
  451. Bu=Bo()
  452. Bt=Bl()
  453. éè
  454. Bk=▓(Bk,Br)
  455. éä
  456. äBq()
  457. «Br
  458. «Bs
  459. åBt=1ì½(Bk)ê
  460. Br=Bk[Bt]
  461. ┤(1,{
  462. 37,115,32,37,100,10},Br[1..2])
  463. Bs=Br[3]
  464. åBu=1ì½(Bs)ê
  465. ┤(1,{
  466. 32,32,32,32,37,115,32,37,100,10},Bs[Bu])
  467. éå
  468. éå
  469. éä
  470. ÆäBr(¡Bs)
  471. ¡Bt
  472. Bj=Be(Bs)
  473. Bk={}
  474. Bt=Bn(2)
  475. Bp(0,{{
  476. 92},1,{}})
  477. Bt=Bn(1)
  478. éä
  479. ÆæBu(«Bs,¡Bt)
  480. åBv=1ì½(Bk)ê
  481. ü┐(Bs,Bk[Bv][1])ÄBt=Bk[Bv][2]â
  482. çBv
  483. éü
  484. éå
  485. ç0
  486. éæ
  487. ÆæBs(«Bt,¡Bv)
  488. «Bw
  489. Bw=Bk[Bv][3]
  490. åBx=1ì½(Bw)ê
  491. ü┐(Bt,Bw[Bx][1])â
  492. çBw[Bx][2]
  493. éü
  494. éå
  495. ç0
  496. éæ
  497. ÆæBt(¡Bv)
  498. çBk[Bv][2]
  499. éæ
  500. ÆäBw(¡Bx)
  501. ¡Bv
  502. ç
  503. ┤(1,{
  504. 37,100,32,37,115,32,37,115,32,37,100,32,37,100,32,37,100,32,37,100,
  505. 32,37,100,32,37,100,32,37,100,10},Bj[Bx])
  506. Bv=╖(0)
  507. éä
  508. ÆäBx(¡Bv)
  509. ¡By
  510. ç
  511. ┤(1,{
  512. 37,115,32,37,100,10},Bk[Bv][1..2])
  513. By=╖(0)
  514. éä
  515. ûtrace
  516. ïBv(¡By)
  517. çBy>0
  518. éï
  519. Bv By
  520. «Bz
  521. ÆäCA()
  522. ¡CB
  523. By=Bu({
  524. 92},1)
  525. Bz={{{
  526. 92},By}}
  527. CB=Bn(1)
  528. éä
  529. ÆæCB(«CC)
  530. ¡CD
  531. ¡CE
  532. CD=Bs(CC,By)
  533. üCD<1â
  534. ç0
  535. éü
  536. By=Bu(CC,CD)
  537. Bz=▒(Bz,{CC,By})
  538. CE=Bn(CD)
  539. ç1
  540. éæ
  541. ÆæCC()
  542. ¡CD
  543. ¡CE
  544. CD=½(Bz)
  545. üCD<=1â
  546. ç0
  547. éü
  548. Bz=Bz[1..CD-1]
  549. By=Bz[CD-1][2]
  550. CE=Bt(By)
  551. CD=Bn(CE)
  552. ç1
  553. éæ
  554. ÆäCD()
  555. ¼(1,Bz[1][1])
  556. åCE=2ì½(Bz)ê
  557. ¼(1,Bz[CE][1])
  558. ¼(1,{
  559. 92})
  560. éå
  561. éä
  562. ûtrace
  563. îCE=1,CF=2,CG=3,CH=4 
  564. îCI=5,CJ=6,CK=7
  565. îCL=8,CM=9,CN=10
  566. îCO=14,CP=7,CQ=2
  567. îCR=16,CS=80,CT=25,CU=23
  568. îCV=4,CW=1
  569. ¡CX,CY,CZ,Ca
  570. CX=CV
  571. CY=CW
  572. Ca=0
  573. CZ=1
  574. äCb()
  575. è╣()<0ê
  576. éè
  577. éä
  578. ÆäCc(«Cd)
  579. »(CT,CW)
  580. s(CQ)
  581. ü½(Cd)â
  582. ¼(1,Cd)
  583. à
  584. ¼(1,{
  585. 80,114,101,115,115,32,97,110,121,32,107,101,121,32,116,111,32,99,111,110,
  586. 116,105,110,117,101,46,46,46})
  587. éü
  588. Cb()
  589. s(CP)
  590. »(CT,CW)
  591. ¼(1,{
  592. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  593. 32,32,32,32,32,32,32,32})
  594. CZ=CZ+1
  595. éä
  596. äCd(«Ce)
  597. üCY>CSâ
  598. CY=CW
  599. CX=CX+1
  600. üCX=CTâ
  601. Cc({})
  602. ╡()
  603. CX=CV
  604. éü
  605. éü
  606. »(CX,CY)
  607. ¼(1,Ce)
  608. CY=CY+CR
  609. éä
  610. äCe()
  611. üCX=CTÄCa>=CUâ
  612. üCZâ
  613. r(1)
  614. CZ=CZ+1
  615. éü
  616. Cc({})
  617. Ca=0
  618. CX=CT-1
  619. éü
  620. CY=1
  621. üCX=CTâ
  622. r(1)
  623. à
  624. CX=CX+1
  625. éü
  626. »(CX,CY)
  627. Ca=Ca+1
  628. éä
  629. æCf()
  630. üCY>CSÄCX+1=CTâ
  631. ç1
  632. à
  633. ç0
  634. éü
  635. éæ
  636. ÆäCg(¡Ch)
  637. ¡Ci
  638. «Cj
  639. ¡Ck
  640. ¡Cl
  641. Cl=Bo()
  642. CX=CV 
  643. CY=CW
  644. CZ=1
  645. s(CP)
  646. Cj=Bl()
  647. Ci=Cj[CE]+1 
  648. Cj=Bl()
  649. è½(Cj)ê
  650. üCj[CE]<Ciâ
  651. Ck=Bn(Cl)
  652. üCZ>1â
  653. Cc({})
  654. éü
  655. ç
  656. éü
  657. üCj[CE]=Ciâ
  658. ü╛(100,Cj[CG])â
  659. s(CO)
  660. éü
  661. üCf()ÄChâ
  662. »(CT,CW)
  663. s(CQ)
  664. ¼(1,{
  665. 85,115,101,32,76,73,83,84,32,116,111,32,118,105,101,119,32,97,108,108,
  666. 32,102,105,108,101,115,46,46,46})
  667. s(CP)
  668. Ck=Bn(Cl)
  669. ç
  670. éü
  671. Cd(Cj[CF])
  672. s(CP)
  673. éü
  674. Cj=Bl()
  675. éè
  676. Ck=Bn(Cl)
  677. üCZ>1â
  678. Cc({})
  679. éü
  680. éä
  681. ÆäCh(¡Ci)
  682. ¡Cj
  683. «Ck
  684. ¡Cl
  685. ¡Cm
  686. CZ=0
  687. Ca=0
  688. CX=0
  689. CY=1
  690. ╡()
  691. Cm=Bo()
  692. s(CP)
  693. Ck=Bl()
  694. Cj=Ck[CE]+1 
  695. Ck=Bl()
  696. è½(Ck)ê
  697. üCk[CE]<Cjâ
  698. Cl=Bn(Cm)
  699. r(1)
  700. Cc({})
  701. ç
  702. éü
  703. üCk[CE]>=Cjâ
  704. ü╛(100,Ck[CG])â
  705. Ce()
  706. ┤(1,{
  707. 37,115},{╗(32,4*Ck[CE])})
  708. ┤(1,{
  709. 37,115},{Ck[CF]})
  710. éü
  711. éü
  712. Ck=Bl()
  713. éè
  714. Cl=Bn(Cm)
  715. r(1)
  716. Cc({})
  717. éä
  718. îCi={48,49,50,51,52,53,54,55,56,57}
  719. æCj(¡Ck)
  720. «Cl
  721. üCk=0â
  722. ç{48}
  723. éü
  724. Cl={}
  725. èCk>0ê
  726. Cl=▓(Cl,Ci[═(Ck,10)+1])
  727. Ck=╢(Ck/10)
  728. éè
  729. çCl
  730. éæ
  731. ÆäCm(«Ck)
  732. ¡Cl
  733. «Cn
  734. ¡Co,Cp,Cq
  735. ¡Cr
  736. Ca=0
  737. CX=0
  738. CY=1
  739. Cp=0
  740. Cq=0
  741. ╡()
  742. Cr=Bo()
  743. s(CP)
  744. Cn=Bl()
  745. Cl=Cn[CE]+1 
  746. Cn=Bl()
  747. è½(Cn)ê
  748. üCn[CE]<Clâ
  749. Co=Bn(Cr)
  750. r(1)
  751. Cc({
  752. 70,105,108,101,115,32,102,111,117,110,100,58,32}&Cj(Cp)&{
  753. 32,84,111,116,97,108,32,115,105,122,101,58,32}&Cj(Cq))
  754. ç
  755. éü
  756. üCn[CE]>=Clâ
  757. ü┐(Ck,Cn[CF])â
  758. Cp=Cp+1
  759. Cq=Cq+Cn[CH]
  760. Ce()
  761. ┤(1,{
  762. 37,45,49,52,115,32,37,45,51,115,32,37,55,100,32,37,52,100,47,37,
  763. 48,50,100,47,37,48,50,100,32,37,48,50,100,58,37,48,50,100,58,37,
  764. 48,50,100},
  765. Cn[CF..CN])
  766. éü
  767. éü
  768. Cn=Bl()
  769. éè
  770. Co=Bn(Cr)
  771. r(1)
  772. Cc({
  773. 70,105,108,101,115,32,102,111,117,110,100,58,32}&Cj(Cp)&{
  774. 32,84,111,116,97,108,32,115,105,122,101,58,32}&Cj(Cq))
  775. éä
  776. ÆäCk()
  777. ╡()
  778. ¼(1,{
  779. 10})
  780. ¼(1,{
  781. 10})
  782. ¼(1,{
  783. 10})
  784. ¼(1,{
  785. 67,111,112,121,114,105,103,104,116,32,49,57,57,52,32,98,121,32,66,114,
  786. 117,99,101,32,87,46,32,69,118,97,110,115,46,32,65,108,108,32,114,105,
  787. 103,104,116,115,32,114,101,115,101,114,118,101,100,46,10})
  788. ¼(1,{
  789. 10})
  790. ¼(1,{
  791. 76,105,99,101,110,115,101,32,105,115,32,103,114,97,110,116,101,100,32,102,
  792. 111,114,32,110,111,110,45,99,111,109,109,101,114,99,105,97,108,32,117,115,
  793. 101,32,98,121,32,105,110,100,105,118,105,100,117,97,108,115,32,97,110,100,
  794. 32,110,111,110,45,112,114,111,102,105,116,10})
  795. ¼(1,{
  796. 111,114,103,97,105,110,105,122,97,116,105,111,110,115,46,10})
  797. ¼(1,{
  798. 10})
  799. ¼(1,{
  800. 84,104,105,115,32,112,114,111,103,114,97,109,32,109,97,121,32,98,101,32,
  801. 102,114,101,101,108,121,32,99,111,112,105,101,100,32,97,110,100,32,100,105,
  802. 115,116,114,105,98,117,116,101,100,44,32,115,111,32,108,111,110,103,32,97,
  803. 115,32,116,104,101,114,101,32,105,115,10})
  804. ¼(1,{
  805. 110,111,32,99,104,97,114,103,101,32,111,116,104,101,114,32,116,104,97,110,
  806. 32,102,111,114,32,116,104,101,32,99,111,115,116,32,111,102,32,100,105,115,
  807. 116,114,105,98,117,116,105,111,110,46,10})
  808. ¼(1,{
  809. 10})
  810. ¼(1,{
  811. 65,32,112,114,111,100,117,99,116,32,111,102,58,10})
  812. ¼(1,{
  813. 66,82,69,86,32,69,110,116,101,114,112,114,105,115,101,115,10})
  814. ¼(1,{
  815. 49,49,53,57,69,32,80,97,99,105,102,105,99,32,67,111,97,115,116,32,
  816. 72,119,121,46,44,32,83,117,105,116,101,32,50,50,55,10})
  817. ¼(1,{
  818. 72,101,114,109,111,115,97,32,66,101,97,99,104,44,32,67,65,32,57,48,
  819. 50,53,52,10})
  820. ¼(1,{
  821. 67,73,83,58,32,55,54,54,49,54,44,50,49,53,10})
  822. ¼(1,{
  823. 10})
  824. ¼(1,{
  825. 10})
  826. ¼(1,{
  827. 76,111,97,100,105,110,103,32,100,97,116,97,32,98,97,115,101,46,46,46,
  828. 32,104,97,110,103,32,111,110,32,97,32,115,101,99,46,46,46,10})
  829. éä
  830. îCl=0,Cn=1,Co=2
  831. îCp=0,Cq=7,Cr=14
  832. îCs={32,10,13,9}
  833. æCt(«Cu)
  834. ¡Cv
  835. Cv=½(Cu)
  836. èCv>0ê
  837. ü╛(Cu[Cv],Cs)â
  838. Cv=Cv-1
  839. à
  840. É
  841. éü
  842. éè
  843. üCvâ
  844. çCu[1..Cv]
  845. à
  846. ç{}
  847. éü
  848. éæ
  849. æCu(«Cv)
  850. åCw=1ì½(Cv)ê
  851. üCv[Cw]>=97ÄCv[Cw]<=122â
  852. Cv[Cw]=65+(Cv[Cw]-97)
  853. éü
  854. éå
  855. çCv
  856. éæ
  857. æCv(«Cw)
  858. ¡Cx
  859. Cx=┬(Cw,{
  860. 114,98})
  861. üCx<0â
  862. r(1)
  863. »(25,1)
  864. ¼(Cn,{
  865. 70,97,105,108,101,100,32,116,111,32,111,112,101,110,32,118,105,114,116,117,
  866. 97,108,32,100,114,105,118,101,44,32,101,120,105,116,105,110,103,46,10})
  867. ╤(1)
  868. éü
  869. Br(Cx)
  870. çCx
  871. éæ
  872. äCw(¡Cx,«Cy,«Cz,«DA)
  873. ¡DB
  874. DB=0
  875. s(DA[1])
  876. t(DA[2])
  877. åDC=1ì½(Cy)ê
  878. üCy[DC]=126â
  879. s(Cz[1])
  880. t(Cz[2])
  881. DB=1
  882. à
  883. ¼(Cx,Cy[DC])
  884. üDBâ
  885. s(DA[1])
  886. t(DA[2])
  887. DB=0
  888. éü
  889. éü
  890. éå
  891. éä
  892. äCx()
  893. ╡()
  894. o(k)
  895. »(1,1)
  896. Cw(Cn,
  897. {
  898. 126,78,101,119,32,100,114,105,118,101,32,124,32,126,76,105,115,116,32,102,
  899. 105,108,101,115,32,124,32,126,68,111,119,110,32,124,32,126,85,112,32,124,
  900. 32,126,67,104,97,110,103,101,32,112,97,116,104,32,124,32,126,84,114,101,
  901. 101,32,124,32,126,70,105,110,100,32,124,32,126,81,117,105,116,10},
  902. {Cr,Cp},{Cq,Cp})
  903. »(2,1)
  904. ¼(1,{
  905. 67,117,114,114,101,110,116,32,80,97,116,104,58,32})
  906. CD()
  907. Cg(1)
  908. éä
  909. æCy()
  910. ¡Cz
  911. «DA
  912. »(3,1)
  913. ¼(Cn,{
  914. 69,110,116,101,114,32,110,97,109,101,32,111,102,32,118,105,114,116,117,97,
  915. 108,32,100,114,105,118,101,58,32})
  916. DA=Ct(╕(Cl))
  917. ╡()
  918. »(1,1)
  919. ┤(1,{
  920. 76,111,97,100,105,110,103,32,100,105,114,101,99,116,111,114,121,32,105,110,
  921. 102,111,114,109,97,116,105,111,110,32,102,111,114,32,37,115},{DA})
  922. Cz=Cv(DA)
  923. CA()
  924. çCz
  925. éæ
  926. äDB(¡DC)
  927. «Cz
  928. ¡DA
  929. »(3,1)
  930. ¼(1,{
  931. 78,101,119,32,112,97,116,104,32,110,97,109,101,58,32})
  932. Cz=Cu(Ct(╕(0)))
  933. üCz[1]=92â
  934. CA()
  935. Cz=Cz[2..½(Cz)]
  936. éü
  937. è½(Cz)ê
  938. DA=╛(92,Cz)
  939. üDA>1â
  940. üöCB(Cz[1..DA-1])â
  941. Cc({
  942. 68,105,114,101,99,116,111,114,121,32}&Cz[1..DA-1]&{
  943. 32,110,111,116,32,102,111,117,110,100,46}&
  944. {
  945. 32,40,80,114,101,115,115,32,97,32,107,101,121,41})
  946. ç
  947. éü
  948. Cz=Cz[DA+1..½(Cz)]
  949. ëDA=0â
  950. üöCB(Cz)â
  951. Cc({
  952. 68,105,114,101,99,116,111,114,121,32}&Cz&{
  953. 32,110,111,116,32,102,111,117,110,100,46}&
  954. {
  955. 32,40,80,114,101,115,115,32,97,32,107,101,121,41})
  956. ç
  957. éü
  958. Cz={}
  959. éü
  960. éè
  961. éä
  962. äDC()
  963. «Cz
  964. »(3,1)
  965. ¼(1,{
  966. 78,97,109,101,32,111,102,32,102,105,108,101,58,32})
  967. Cz=Cu(Ct(╕(0)))
  968. Cm(Cz)
  969. éä
  970. äDA()
  971. éä
  972. äCz()
  973. ¡DD
  974. DD=╖(Cl)
  975. éä
  976. äDD()
  977. «DE
  978. «DF
  979. ¡DG
  980. ¡DH
  981. ¡DI
  982. DE=┴()
  983. DG=-1 
  984. ü½(DE)>=3â
  985. DF=DE[3]
  986. à
  987. ¼(Cn,{
  988. 69,110,116,101,114,32,110,97,109,101,32,111,102,32,118,105,114,116,117,97,
  989. 108,32,100,114,105,118,101,58,32})
  990. DF=╕(Cl)
  991. DF=Ct(DF)
  992. éü
  993. Ck()
  994. DG=Cv(DF)
  995. CA()
  996. DI=1
  997. è1ê
  998. üDIâ
  999. Cx()
  1000. DI=0 
  1001. éü
  1002. DH=╣()
  1003. üDH>=0â
  1004. DI=1 
  1005. üDH=110â
  1006. o(l)
  1007. DG=Cy()
  1008. ëDH=108â
  1009. Cg(0)
  1010. ëDH=100â
  1011. »(3,1)
  1012. o(l)
  1013. ¼(Cn,{
  1014. 83,117,98,100,105,114,101,99,116,111,114,121,58,32})
  1015. üöCB(Cu(Ct(╕(Cl))))â
  1016. Cc({
  1017. 83,117,98,100,105,114,101,99,116,111,114,121,32,110,111,116,32,118,97,108,
  1018. 105,100,46,32,40,80,114,101,115,115,32,97,32,107,101,121,46,41})
  1019. éü
  1020. ëDH=117â
  1021. üöCC()â
  1022. »(4,1)
  1023. ¼(Cn,{
  1024. 67,97,110,110,111,116,32,103,111,32,117,112,46,32,40,80,114,101,115,115,
  1025. 32,97,32,107,101,121,46,41})
  1026. éü
  1027. ëDH=99â
  1028. o(l)
  1029. DB(DG)
  1030. ëDH=116â
  1031. Ch(DG)
  1032. ëDH=102â
  1033. o(l)
  1034. DC()
  1035. ëDH=113â
  1036. É
  1037. à
  1038. DA()
  1039. DI=0 
  1040. éü
  1041. éü
  1042. éè
  1043. r(1)
  1044. »(25,1)
  1045. éä
  1046. DD()
  1047.